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摘 要 : 针对 目前 误 入 式 Forth 操作 系统 中 缺乏 实时 调度 机 制 的 问题 ， 对 基于 Forth 虚拟 机 架构 的 谋 入 式 操 作 系 统 中 多 
任务 调度 的 关键 技术 进行 了 研究 。 采 用 Forth 虚拟 机 技术 ， 新 定义 了 一 种 中 断 任务 类 型 来 处 理 实时 突 发 事件 ， 并 给 出 
了 一 种 新 的 任务 调度 算法 来 调度 Forth 系统 中 终端 任务 、 后 台 任 务 以 及 中 断 任务 顺利 运行 。 实 验 结果 表明 ， 改 进 后 的 
Forth 系统 能 够 通过 实时 调度 处 理 突 发 事件 ， 并 且 实 时 响应 度 高 ， 尤 其 适合 应 用 于 对 实时 性 有 要 求 的 说 入 式 环境 中 ， 
以 满足 日 趋 复杂 的 岁入 式 环境 对 高 效 操作 系统 和 Forth 技术 的 应 用 需求 。 

关键 词 : Forth 系统 ; 多 任务 ; 实时 调度 

中 图 分 类 号 : TP316 doi: 10.3969/i.issn.1001-3695.2018.03.0237 


Research on real-time scheduling algorithm for embedded Forth operating system 
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C¢ ~ Abstract: For the problem of lacking real-time scheduling mechanism in the embedded Forth operating system at present, this 


paper investigated the key technologies of multitask-scheduling of embedded operating system based on Forth virtual machine 


architecture. On the basis of Forth virtual machine technology, this paper defined a new interrupt task type to deal with 


real-time emergencies and proposed a new scheduling algorithm, which enabled the scheduling of terminal tasks, background 


tasks and interrupt tasks in Forth system to be successfully executed. The experimental results demonstrate that the improved 
Forth system can handle emergencies through real-time scheduling and has a high degree of real-time response and is 
especially suitable for the embedded environment which is required for real-time performance, so as to meet the increasingly 
complex application requirements of embedded system for efficient operating system and Forth technology. 
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此 外 , Chuck Moore 创办 的 GreenArrays 公司 目前 已 在 其 生产 的 
GA144 芯片 上 集成 了 144 个 Forth 处 理 器 [12。 
1969 年 美国 的 Chuck Moore 发 明了 Forth 山 。Forth 是 一 种 正如 多 任务 调度 是 其 他 操作 系统 的 核心 功能 一 样 ，Forth 
操作 系统 、 一 套 开 发 工具 、 一 种 高 级 程序 设计 语言 、 一 种 汇编 。 系统 的 核心 功能 也 包括 多 任务 调度 。 最 早 的 Forth 操作 系统 调 
语言 以 及 一 种 软件 设计 准则 的 集合 体外 。 近 年 来 ， 国 内 外 对 度 采用 的 是 与 传统 操作 系统 相同 的 方式 , 即 基 于 CPU 方式 的 调 
Forth 的 研究 主要 集中 于 Forth 系统 构建 和 Forth 处 理 器 。 自 Forth ” 度 , 这 种 方式 任务 切换 需要 保存 和 恢复 CPU 现场 和 Forth 状态 ， 
诞生 以 来 ， 经 过 不 断 的 扩展 和 补充 ， 已 经 有 了 多 个 Forth 版 本 ， ”例如 早期 的 Forth11 和 Forth88031。 基 于 CPU 方式 的 多 任务 调 
比如 AmForth、SwiftX、PunyForth 等 ， 其 中 SwiftXBI 是 目前 最 度 存 在 的 问题 是 开销 太 大 , 针对 这 个 问题 , 基于 虚拟 机 的 Forth 
具 代 表 性 的 版 本 。 就 Forth 处 理 器 而 言 ，Edvin 等 人 由 介绍 了 一 。 ”多 任务 操作 系统 (下 文 简称 Forth 系统 ) 开始 出 现 ， 其 特点 是 
种 基于 堆栈 的 32 位 Forth 微 处 理 器 的 设计 , 详细 阐述 了 这 种 微 ” 简洁 高 效 、 对 硬件 层 抽象 、 可 重 构 、 可 扩展 、 可 移植 以 及 可 交 
处 理 器 的 架构 以 及 指令 设计 等 方面 的 内 容 。Hanna 等 人 外 提出 。” 互 ， 多 任务 基于 堆栈 调度 ， 并 且 采 用 协作 式 轮 循 的 调度 方式 ， 
了 一 种 称 为 rForth 的 32 位 Forth 内 核 体 系 架 构 ， 其 包括 一 个 浮 内 型 的 有 ColorForth、AmForth、PunnyForth、SwiftX 等 。 这 种 
点 运算 单元 、 一 个 中 断 控制 器 和 一 个 可 访问 的 扩展 内 存 。Ting 基于 虚拟 机 的 Forth 操作 系统 由 于 具备 了 诸多 的 优势 开始 成 为 
等 人 [51 对 在 FPGA 上 用 VHDL 设计 Forth 处 理 器 进行 了 描述 。 ”研究 热点 ， 并 逐渐 成 为 主流 。 基 于 虚拟 机 的 Forth 多 任务 调度 
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成 功 解决 了 在 任务 切换 时 开销 大 的 问题 ， 但 同时 也 带 来 了 另 一 d) 终 端 任务 在 运行 的 过 程 中 , 通过 执行 pause 的 方式 将 CPU 
个 问题 : 多 任务 调度 是 非 实时 的 。 的 控制 权 交 给 Bg-taski，Bg-taski 从 上 一 次 发 生 调 度 的 断 点 继续 

Forth 系统 主要 应 用 于 肉 入 式 领域 , 对 于 一 个 应 用 于 骨 入 式 。 往 下 执行 ，Bg-taski 在 运行 的 过 程 中 ,通过 执行 pause 的 方式 将 


领域 的 操作 系统 而 言 ， 能 够 及 时 处 理 各 种 突 发 事件 的 意义 不 言 CPU 的 控制 权 交 给 Bg-taskj，Bg-taski 从 上 一 次 发 生 调度 的 断 点 
而 喻 。 纵 览 目前 国内 外 对 Forth 的 研究 ， 在 基于 虚拟 机 的 实时 继续 往 下 执行 。 如 此 不 断 循环 , 直到 Bg-taski 与 Bg-taski 的 执行 
调度 方面 依然 是 空白 。 因 此 ， 通 过 对 目前 基于 虚拟 机 的 Forth ”” 体 均 执 行 完 , 之 后 系统 进入 单 任务 模式 , 终端 任务 获得 CPU 的 
系统 中 多 任务 调度 机 制 相关 关键 问题 进行 研究 ， 本 文 给 出 了 一 控制 权 。 
种 提升 Forth 系统 多 任务 调度 实时 性 的 实现 方法 。 在 Forth 系统 中 ， 任 务 是 竞争 系统 资源 的 最 小 运行 单元 。 

前 Forth 系统 只 有 终端 任务 和 后 台 任 务 这 两 种 不 同类 型 的 任 
| 现 有 Forth 系统 协作 式 多 任务 调度 机 制 务 , 在 终端 任务 和 后 台 任 务 (Bg-task1~Bg-taskn1) 的 执行 期 间 ， 
目前 主流 的 Forth 系统 普遍 支持 协作 式 多 任务 机 制 ， 任 务 尚 若 外 部 有 一 个 实时 突 发 事件 请 求 处 理 ， 现 有 Forth 系统 并 没 
调度 方式 为 轮 询 调度 .Forth 系统 提供 终端 任务 和 后 台 任务 两 种 有 实时 调度 机 制 去 实时 处 理 突 发 事件 , 这 显然 严重 影响 了 Forth 
不 同类 型 的 任务 ， 并 且 在 数量 上 只 有 一 个 终端 任务 和 人 允许 用 户 系统 的 实时 性 ， 同 时 也 局 限 了 Forth 在 对 实时 性 有 要 求 的 人 谍 入 
建立 多 个 后 台 任 务 。 不 管 终端 任务 还 是 后 台 任 务 ， 均 只 有 就 绪 式 环 境 中 的 应 用 
和 休眠 两 种 状态 ， 只 有 在 就 绪 状 态 下 的 任务 才能 在 任务 调度 时 
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2 ”Forth 系统 实时 任务 调度 


获得 CPU 的 控制 权 。 在 单 任务 模式 下 ， 终 兹 任务 得 到 CPU 的 
控制 权 。 在 多 任务 模式 下 ， 终 端 任务 与 后 台 任 务 通过 协作 式 轮 。 2.1 Forth 系统 实时 任务 调度 机 制 
询 的 方式 交 蔡 得 到 CPU 的 控制 权 。 终 端 任务 与 后 台 任务 是 通过 DForth 系统 处 理 实时 突 发 事件 
循环 链表 的 方式 组 织 起 来 的 ， 如 图 1 所 示 。 在 Forth 系统 协作 式 多 任务 轮 询 调度 的 基础 上 ， 结 合 中 断 
HH ie La 技术 ， 本 文 定义 了 一 种 新 的 任务 类 型 -.- 中 断 任务 类 型 来 处 理 外 
部 实时 突 发 事件 。 终 端 任务 、 后 台 任务 以 及 中 断 任务 是 通过 循 
图 1 Forth 系统 中 终端 任务 与 后 台 任务 的 组 织 方式 环 链表 的 方式 组 织 起 来 的 ， 加 入 了 中 断 任务 的 新 任务 链表 如 下 
Sys-task 代表 终端 任务 ， 也 即 系统 任务 ， 用 于 与 用 户 交互 。 ” 图 2 所 示 ; 
Bg-taski~Bg-taska1 代表 后 台 任务 ， 用 于 在 后 台 处 理 其 他 事情 。 ee i 
在 Forth 系统 多 任务 调度 中 ，pause 是 任务 调度 原 语 ， 它 的 l 
功能 在 于 ， 首先 保存 当前 正在 运行 的 任务 的 执行 断 点 ， 然 后 去 es nets | o 而 Fe 
任务 链 里 寻找 下 一 个 就 绪 的 任务 , 最 后 把 CPU 控制 权 转 交 给 已 
找到 的 就 结 的 任务 ， 之 后 就 绪 的 任务 开始 运行 。 如 图 1 所 示 的 图 2 终端 任务 .后 台 任 务 以 及 中 断 任务 的 任务 链 组 织 方式 
任务 链 , 假设 终端 任务 正在 运行 ， Forth 系统 中 协作 式 多 任务 的 Int-taski~Int-tasks 代表 中 断 任务 。 终 端 任务 、 后 台 任务 以 
轮 询 调度 的 原理 为 ; 及 中 断 任务 的 任务 状态 只 有 丙种， 就绪 和 休 眼 。 中 断 任务 处 理 


a) 终 端 任 务 正 在 运行 ， 在 运行 的 过 程 中 遇 到 了 任务 调度 原 。” 突 发 事件 的 过 程 为 a) 外 部 实时 突 发 事件 产生 中 断 请 求 ， 当 前 
语 pause， 终 端 任务 去 执行 pause。 在 pause 中 ， 终 端 任务 首 正在 执行 的 任务 转 去 执行 中 断 服务 程序 ， 在 中 断 服务 程序 里 就 
保存 其 执行 断 点 ， 然 后 去 任务 链 里 寻找 下 一 个 就 绪 的 后 台 任 务 。 绪 对 应 的 中 断 任 务 ，b) 调 度 中 断 任务 执行 。 


ci 


Bg-taski (1<i<n-1)， 最 后 把 CPU 的 控制 权 交 给 Bg-taski， 随 后 2) 中 断 任务 的 调度 
Bg-taski 开始 运行 。 Forth 系统 原 有 的 任务 调度 原 语 pause 并 不 能 调度 中 断 任 


b)Bg-taski 正在 运行 , 在 运行 的 过 程 中 遇 到 了 任务 调度 原 语 务 。 按 照 图 2 所 示 的 任务 链 组 织 方 式 ， 在 原始 任务 调度 原 语 
pause，Bg-taski 去 执行 pause。 在 pause 中 ，Bg-taski 首先 保存 。 pause 的 基础 上 ， 本 文 定义 了 一 个 新 的 任务 调度 原 语 
其 执行 断 点 ， 然 后 去 任务 链 里 寻找 下 一 个 就 绪 的 后 台 任 务 ”INT-PAUSE 来 调度 终端 任务 、 后 台 任 务 以 及 中 断 任务 ， 


Bg-task; 〈i<jsn-1)， 最 后 把 CPU 的 控制 权 交 给 Bg-taskj， 随 INTPAUSE 调度 的 基本 思想 是 : 
Beg-task; 开始 运行 。 a) 引 入 临界 资源 intTask 和 readyTask[] 。intTask 初 值 为 0， 
c) 后 台 任务 Bg-taski 正在 运行 ， 在 运行 的 过 程 中 遇 到 了 任 用 于 记录 当前 中 断 任 务 链 里 已 经 就 绪 的 中 断 任 务 的 数量 。 


务 调度 原 语 pause， 倘 若 在 Bg-taski 与 后 台 任 务 Bg-taskn-l 之 | readyTask[0] 存 储 终端 任务 的 TCB 或 者 后 台 任务 的 TCB， 目 的 
已 经 没有 就 绪 的 任务 ， 由 于 任务 链 是 通过 循环 链表 的 方式 组 织 。 是 当中 断 任务 执行 完 的 时 候 能 够 返回 发 生 中 断 时 的 终端 任务 或 
起 来 的 ,那么 Bg-taskj 在 执行 pause 的 过 程 中 寻找 下 一 个 就 绪 任 “者 后 台 任务 , 使 终端 -后 台 任 务 的 任务 链 里 下 一 个 就 绪 的 任务 运 
务 的 时 候 , 会 把 CPU 的 控制 权 交 给 终端 任务 , 终端 任务 继续 从 ” 行 。 每 当 有 中 断 请 求 就 绪 了 中 断 任 务 ，intTask 就 加 1， 且 
上 次 发 生 调度 的 断 点 开始 往 下 执行 。 readyTask[1]~ readyTask[intTask] 里 存储 着 在 中 断 服 务 程序 里 就 
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绪 的 中 断 任务 的 TCB 地 址 。 

b) 若 终端 任务 或 者 后 台 任务 正在 运行 的 时 候 来 了 一 个 中 
断 : (a) 把 当前 正在 运行 的 终端 任务 或 者 后 台 任 务 的 TCB 地 址 
存储 在 readyTask[0] 里 ; (b)intTask 加 1, 且 readyTask[intTask] 里 
存储 就 绪 的 中 断 任 务 的 TCB 地 址 。 若 中 断 任务 正在 运行 的 时 候 
来 
中 


个 一 个 中 断 : intTask 加 1, 且 readyTask[intTask] 里 存储 就 绪 的 
断 任务 的 TCB 地 址 。 
9c) 当 前 正在 运行 的 任务 每 次 执行 INT-PAUSE 进行 任务 调 
度 的 时 候 , 若 intTask 大 于 0， 调 度 readyTask[intTask] 里 存储 的 
就 绪 的 中 断 任务 的 TCB 运行 ， 然 后 intTask 减 1; 
于 0 并 且 readyTask[0] 等 于 0， 调 度 在 终端 -后 台 任 务 的 任务 链 
里 下 一 个 已 经 就 绪 的 任务 运行 ， 若 intTask 等 于 0 并 有 
readyTask[0] 不 等 于 0, 从 readyTask[0] 里 存储 的 终端 任务 的 TCB 
或 者 后 台 任 务 的 TCB 开始 ， 调 度 在 终端 -后 台 任 务 的 任务 链 里 
下 一 个 就 绪 的 任务 运行 ， 然 后 将 readyTask[0] 赋 值 为 0。 

按照 图 2 所 示 的 任务 链 组 织 方式 ， 某 个 就 绪 的 中 断 任务 


若 intTask 等 


Int-taskk 从 就 绪 到 运行 需要 等 待 的 时 间 为 
m=intTask 
Tal 王 T 向 下 (intTask — Kk 再 D* Tyr PAUSE 


也 -exec 
m=k+1 


其 中 :1<k<n，0<i<n-1， 当 i=0 时 ，Ti 表 示 终 端 任务 从 发 生 
中 断 的 地 方 执行 到 任务 调度 原 语 INTPAUSE 的 时 间 , 当 iz0 时， 
Ti 表示 后 台 任 务 从 发 生 中 断 的 地 方 执行 到 任务 调度 原 语 
INTPAUSE 的 时 间 。Tm-exec 为 中 断 任务 mtrtaskm 一 次 执行 完 其 
执行 体 的 时 间 ， k+1<intTask 。TINTrPAUsE 为 任务 调度 原 语 
INT-PAUSE 的 执行 时 间 。 

当 k+1>intTask 时 , 即 Int-taskx 表示 中 断 任务 链 里 最 后 一 个 


= 了 十 了 


—wait INT—PAUSE “” 


务 Int-taskl 就 绪 时 ， 


就 绪 的 任务 ， 丰 


当中 断 任 务 链 里 只 有 一 个 任 


= 了 + 并 


1l—wait INT-PAUSE ° 
当中 断 任务 里 n 个 中 断 任务 全 部 就 绪 时 ， 
n—wait 一 k—wait < Ti d S k < n) ? 即 
m=n 
元 二 了 < k—wait T+ LT 一 EXec LA abs 和 
m=2 


于 在 终端 任务 或 者 后 台 任 务 的 执行 体 中 何 处 才 开 始 调度 
是 由 程序 员 人 为 加 入 INEPAUSE 决定 的 , 因此 Ti 是 不 确定 的 ， 
同时 Tn 也 取决 于 中 断 任务 执行 体 需要 执行 时 间 的 长 短 。 
2.2 Forth 系统 实时 调度 算法 

]) 中 断 任务 类 型 

(1) 中 断 任务 的 任务 控制 块 

加 上 本 文 创建 的 中 断 任务 类 型 , Forth 系统 目前 能 够 提供 三 
种 类 型 的 任务 : 终端 任务 、 后 台 任 务 以 及 中 断 任务 。 其 中 ， 中 
断 任务 用 于 处 理 外 部 突 发 的 事件 。 每 个 中 断 任 务 都 拥有 自己 的 
任务 控制 块 〈TCB )。 终 端 任务 的 TCB 、 所 有 后 台 任务 的 TCB 


— 


ChinaXiv 合 作 期 刊 


黄 忠 建 ， 等 : 上 说 入 式 Forth 果 作 订 统 实时 调度 


和 所 有 中 断 任务 的 TCB 都 位 于 用 户 区 里 ， 这 些 TCB 是 按照 图 
2 所 示 的 循环 链表 方式 组 织 起 来 ， 通 过 本 文 新 定义 的 任务 调度 


原 语 INTPAUSE 进行 调度 ， 如 图 3 所 示 。 


Forth 系 统 启动 代码 


内 层 解释 程序 Sys-task 的 TCB ”ee 一 
DP > 词典 | Bg-taski 的 TC 
RPpO Bg-taski 的 返回 栈 
Sys-task 的 返回 栈 Bg-taski 的 参数 栈 
RP 一 
spo [ 有 
本 Srs tesk 的 乡 数 村 | Be-task, 的 TC 
Bg-task, 1 的 返回 栈 
UP — 户 区 Bg-task-1 的 参数 栈 
Int-taski 的 TC lt 一 
缓冲 x 
Int-taski 的 返回 栈 
系统 保留 区 经 


Int=-taski 的 参数 栈 


Int-task, 的 TC 


Int-task, 的 返回 栈 


Int-taskn 的 参数 栈 


图 3 Forth 系统 运行 时 的 存储 映像 图 
中 断 任 务 的 TCB 里 定义 了 该 任务 运行 时 的 信息 , 这 些 信息 
包括 : 任务 的 状态 是 就 绪 还 是 休眠 ; 指向 循环 TCB 链表 中 的 下 


一 个 TCB; 堆栈 从 哪里 开始 ， 目 前 有 多 少 条 目 ; 一 个 用 于 识别 
该 任务 是 中 断 任务 的 标志 。 结 构 如 表 1 所 示 。 
表 1 Forth 系统 中 断 任务 的 任务 控制 块 结构 
地 址 偏 移 途 
0 status 
2 follower 
4 rp0 
6 sp0 
8 sp 
10 TaskType 
其 中 : status 描述 的 是 任务 的 状态 ， 存 储 的 是 任务 就 绪 词 


WAKE 或 任务 休眠 词 PASS 的 执行 地 址 ;follower 存储 的 是 下 
一 个 中 断 任务 的 TCB 的 地 址 ，rp0 描述 的 是 当前 中 断 任务 的 返 
栈 栈 底 指针 ;sp0 描述 的 是 当前 中 断 任 务 的 参数 栈 栈 底 指针 ; 
sp 描述 的 是 当前 中 断 任务 的 参数 栈 栈 顶 指针 ; TaskType 的 值 为 
1, 描述 的 是 该 任务 是 中 断 任务 , 终端 任务 以 及 后 台 任 务 的 TCB 
里 也 有 这 个 标识 ， 其 值 为 0。 

(2) 中 断 任务 的 创建 
通过 INTTASK: 来 创建 一 个 中 断 任务 。 例 如 ,用 INTTASK: 
来 创建 一 个 中 断 任务 Int-task1: 32 32 INTTASK: Int-taski .第 一 
个 32 代表 Int-taski tn 9 32 个 存储 单元 ， 第 二 个 32 


I 


代表 Int-taski 的 参数 栈 空间 有 32 个 存储 单元 。 
采用 Forth2012 标准 中，INT-TASK: 的 算法 如 下 : 
: INT-TASK: 
(OO) <builds 
@ here, 


201 wa 


XIV: 
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[ s" /user" environment search-wordlist drop execute ] 


literal 


(dstac 


人 
@ (rstacksize ) allot here ， 
© 


ksize ) allot here ， 


© does> ; 


Q@<builds 在 词典 里 生成 名 称 为 Int-taski 的 名 字 域 NFA 词 


条 目 ,<builds 与 does> 之 间 的 词 就 是 在 创建 中 断 任务 Int-taski 
需要 做 的 动作 。 名 称 Int-task1 生成 后 ， 词 典 中 下 一 个 可 用 的 存 
诸 单 元 就 是 Int-taski 的 参数 域 PFA 的 第 一 个 字 节 的 地 址 。 以 后 
执行 mtrtaskl 时 , Int-taski 的 参数 域 的 第 一 个 字 节 的 地 址 会 被 保 
留 在 参数 栈 的 栈 顶 。 

@here 将 用 户 区 中 下 一 个 可 用 存储 单元 的 地 址 放 到 参数 栈 
栈 顶 ， 词 ， 将 该 地 址 有 


(@@literal 在 用 
0~10 的 地 址 空间 。 
Gallot 在 用 户 


来 作为 返回 栈 空 间 , 然后 词 ， 


元 的 地 址 存在 词 


到 词典 里 Int-taski 的 参数 域 中 。 
户 区 里 为 Int-taski 分 配 其 TCB 里 地 址 偏 移 从 


[Es 


区 里 为 中 断 


王 务 Int-task1 分 配 32 个 存储 单元 
将 用 户 区 里 下 一 个 可 用 的 存储 单 
里 Int-taski 的 参数 域 中 。 


(@allot 在 用 户 


区 里 为 中 断 任务 mnt-taski 分 配 32 个 存储 单元 


来 作为 参数 栈 空 间 , 然后 词 ， 将 用 户 区 里 下 一 个 可 用 的 存储 单 


元 的 地 址 存在 词典 里 Int-taski 的 参数 域 中 。 
Int-taski 的 存储 映像 图 如 下 图 4 所 示 : 
用 户 区 
词典 status 
si follower 
NFA Int-—taski rp0 Int-task1 的 TCB 
TCB 地 址 Sp0 
PFA 返回 栈 rp0 地 址 sp 
参数 栈 sp0 地 址 返回 栈 空 间 


参数 栈 空间 


图 4 It-taskl 的 存储 映像 图 


(3) 中 断 任务 的 运行 


中 断 
得 到 运行 


a) 初 始 化 中 断 任务 Int-taski 的 TCB 。 将 中 断 任 
指针 和 返回 栈 指针 指向 正确 的 位 置 ， 
情 ) 地 
运行 的 时 候 去 执行 这 
建 


发 事件 要 做 的 事 


Int-taski 运 


b) 若 Int-taski 


自己 ; 若 Int-task1 


Int-taski 的 TCB 加 入 到 


务 队列 里 ， 构 成 一 
9 外 部 的 突 发 


环 的 中 断 任务 队列 ， 


事件 通过 中 断 请 求 的 方式 请 求 CPU 处 理 


任务 mntrtaskl 建 好 后 ， 还 需要 经 过 以 下 几 个 步骤 才能 


务 的 参数 栈 
将 中 断 任 务 的 执行 体 〈 突 
泪 放 到 中 断 任务 的 返回 栈 栈 顶 ， 以 便 
部 分 代码 。 
建 的 第 一 个 中 断 任务 ， 那 么 构建 一 个 循 
即 让 Int-taski 的 TCB 中 follower 自己 指向 
不 是 建 里 的 第 一 个 中 断 任务 ， 将 中 断 任务 
Forth 系统 中 原先 存在 的 中 断 任务 的 任 
的 中 断 任务 队列 。 


是 新 


\ 
| 


个 循 i 


， 上 


中 断 任务 是 专门 / 


于 处 理 外 部 突 发 事件 的 ， 因 此 在 中 断 服务 程 


序 里 还 要 使 中 断 任 


2) 任 


端 任务 、 


Ch 合作 其 月 十 | 
黄 忠 建 ， 等 : 嵌入 式 Forth nV 调度 算法 


E 够 被 调度 到 。 


制 权 ， 处 理 突 发 事件 。 


务 调度 原 语 INT-PAUSE 
上 文 的 论述 可 知 , 任务 调度 原 
后 台 任 务 及 中 断 任务 的 运行 ， 采 


INT-PAUSE 算法 如 下 : 


@ 


© 


QINT-PAUSE 执行 期 间 ， 不 允许 CPU 响 


:branch2 0readyTask[0] @ 


:noname Up!Sp@ sp!rp!; 


: INT-PAUSE 


ENTER_CRITICAL 
IP@ sp@ sp ! 
0 intTask @ > 让 branchl else branch2 then 


EXIT_CRITICAL ; 


:branch1 


readyTask[intTask] @ tmpTCB ! 
1 intTask -! 


tmpTCB @ dup @ i-cell+ >T ; 


= if branch3 else branch4 
then ; 


:branch3 follower @ dup @ i-cellt >r; 


:branch4 


readyTask[0] @ tmpTCB ! 
0 readyTask[0] ! 


tmpTCB @ dup @i-cellt >r ; 


:noname cell+ @ dup @ i-cell+ >T ; constant PASS 


constant WAKE 


务 mtrtaskl 就 绪 , 即将 词 WAKE 的 执行 
存 入 到 Int-taski 的 TCB 里 的 status 存储 单元 中 ， 
的 时 候 Int-taski1 能 

由) 执行 伯 
到 CPU 的 控 


以 便 任务 调度 


E 务 调度 原 语 INT-PAUSE， 使 中 断 任务 Int-taski 得 


研究 


[= 
注 


| 
时 


吾 INTPAUSE 用 于 调度 终 
] Forth2012 标准 


» 


应 中 断 ， 


ENTER_CRITICAL 与 EXIT_CRITICAL 之 间 的 代码 是 临界 区 。 


通过 tp@ sp@ sp ! 保存 当前 正在 运行 的 任 
intTask 大 于 0, 说 明 已 经 有 中 断 任 


务 的 执行 断 点 。 
务 就 绪 ， 然 后 去 分 支 branchl 


A 


右 


中 调度 中 断 任务 运行 。 若 intTask 等 于 0， 说 明 没 有 中 断 任 务 就 
绪 ， 然 后 去 分 支 branch2 中 寻找 终端 任务 或 者 下 一 个 就 绪 的 后 


台 任 务 运 行 。 
在 branchl 中 ， 


lL 体 是 当 


前 正在 运 


首先 将 readyTask[intTask] 中 存储 的 就 绪 
的 中 断 任务 的 TCB 地 址 赋值 给 tmpTCB, 然后 intTask 减 1， 


后 调度 tmpTCB 里 存储 的 TCB 运行 ， i 


务 去 执行 存储 在 tmpTCB 指向 的 TCB 的 status 存储 单元 里 的 词 


WAKE (就 绪 )， 在 WAKE 


任务 。 


@ 在 branch2 
端 任务 或 者 后 台 任 务 的 执行 体 中 发 生 任务 调 
在 于 在 终端 
的 任务 ， 找 到 之 后 将 CPU 的 
等 于 0， 说 明 当 前 是 在 中 断 任 务 的 执行 


的 功能 


么 
务 ， 


里 将 CPU 的 控制 权 交 给 


中 ， 若 readyTask[0] 等 于 0， 说 明 当 
度 ， 那 么 


就 绪 的 中 断 


前 是 在 终 


branch3 


-后 台 任 务 的 任务 链 里 寻找 下 
空 制 权 交 给 它 o 


体 中 发 生 任 


个 已 经 训 


个 就 绪 的 任务 运行 。 


i 绪 


若 readyTask[0] 不 
务 调度 ， 那 
branch4 的 功能 在 于 返回 发 生 中 断 时 的 终端 任务 或 者 后 台 任 

使 终端 -后 台 任 务 的 任务 链 下 一 
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@ 在 branch3 里 ， 取 出 任务 链 里 当前 任务 的 下 一 个 任务 的 
TCB 的 status 存储 单元 里 的 内 容 ， 若 里 面 存 的 是 词 PASS〈 休 
民 ) 的 执行 地 址 ， 则 去 执行 PASS， 在 PASS 里 继续 往 下 寻找 ， 
直到 在 任务 链 里 找到 某 个 status 是 WAKE 的 任务 , 然后 去 执行 
WAKE, 在 WAKE 里 将 CPU 的 控制 权 交 给 找到 的 就 绪 的 任务 ， 
之 后 恢复 就 绪 任务 的 执行 断 点 ， 最 后 就 绪 的 任务 开始 执行 。 

@@ 在 branch4 里 , 首先 将 readyTask[0] 中 存储 的 就 绪 的 终端 
任务 或 者 后 台 任 务 的 TCB 地 址 赋值 给 tmpTCB ， 然 后 
readyTask[0] 赋 值 0， 最 后 调度 tmpTCB 里 存储 的 TCB 运行 。 

与 基于 CPU 调度 相 比 ， 对 于 基于 虚拟 机 的 Forth 实时 操作 
系统 而 言 ， 其 任务 调度 时 现场 保护 仅 需 要 将 当前 返回 栈 指针 rp 


压 入 参数 栈 , 并 将 当前 参数 栈 指针 sp 保存 到 该 任务 的 用 户 变量 
又 里 。 而 恢复 现场 仅 需要 从 该 任务 的 用 户 变量 区 里 恢复 sp， 并 


将 参数 栈 栈 顶 值 存 入 tp 指针 。 
3 ”实验 验证 与 分 析 


本 文中 Forth 系统 实时 任务 调度 机 制 的 具体 实现 基于 开源 
的 AmForth。AmForth 是 一 个 16 位 的 Forth 系统 ， 其 运行 在 
ATmega328 芯片 上 , ATmega328 是 一 个 高 性 能 、 低 功 耗 的 AVR 
8 位 微 控 制 器 , 支持 中 断 处 理 , 时 钟 频率 16MHz, 并 且 有 32KB 
的 flash、2KB 的 RAM 以 及 1KB 的 EEPROM 存储 空间 。 
ATmega328P 能 够 提供 外 部 请 求 中 断 、 引 脚 变化 请 求 中 断 、 
时 器 中 断 、 串 口中 断 等 不 同类 型 的 中 断 。 所 有 中 断 在 中 断 向 
表 中 都 有 一 个 单独 的 中 断 向 量 。 这 些 中 断 具 有 与 中 断 向 量 位 置 
相同 的 优先 级 ， 中 断 向 量 地 址 越 低 ， 优 先 级 越 高 。 
2.1 节 的 分 析 可 知 ， 按 照 INT-PAUSE 的 调度 方式 ， 后 台 
任务 的 数量 并 不 会 影响 某 个 就 绪 的 中 断 任 务 Int-taskx 从 就 绪 到 
运行 需要 等 待 的 时 间 ， 中 断 任务 Int-taskx 从 就 绪 到 运行 需要 等 
待 的 时 间 与 下 列 因素 有 关 : ga) 终端 任务 或 者 后 台 任 务 从 发 生 中 
断 的 地 方 执行 到 任务 调度 原 语 INTPAUSE 的 时 间 ; b) 中 断 任 务 
的 数量 以 及 中 断 任务 一 次 执行 完 其 执行 体 的 时 间 ; c) 任 务 调度 
原 语 INT-PAUSE 的 执行 时 间 。 
在 AmForth 中 新 建 一 个 后 台 任 务 Bg-taskl， 终 端 任务 
Sys-task 的 执行 体 由 程序 段 @ 介 加 组 成 ， 后 台 任 务 Bg-taski 的 
执行 体 由 程序 段 G@G@ 组 成 。 突 发 事件 在 程序 段 四 中 通过 中 断 的 
方式 先后 就 绪 了 中 断 任务 Int-taski~Int-tasks ， 中 断 任务 
Int-taski~Int-tasks 的 执行 体 分 别 是 程序 段 @~@， 如 图 5 所 示 。 


Sys-task Bg-taski 


8 作 


有 


ttask 了 ftasko 
就 绪 中 昕 任务。 N\ 
INT-PAUSE 0 © 中 
INT.PAUSE INT-PAUSE 
@ INT-PAUSE 
Y @ Int-tasks Inttasks Int-tasks 
INT-PAUSE dg @| @| 
@ A INT-PAUSE INT-PAUSE INT-PAUSE 
, 
INT-PAUSE 
@ 
可 | 1 
二 Sys-task | 一 | Bg-task: 
Int-task: —* Int-task; | 一 Int-tasks —*» Int-tasks — Int-tasks i 


下 


图 5 Sys-task、Bg-task 以 及 Int-task 的 任务 链 
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后 台 任 务 Bg-taski 将 程序 段 中 执行 完 后 ， 中 断 任务 就 绪 表 
readyTask[] 的 存储 情况 如 图 6 所 示 。 


0 于 2 3 4 5 


Bg-task! | Int-taskl 
的 TCB 地 址 | 的 TCB 地 址 


Int-taskz 
的 TCB 地 址 


Int-tasks 
的 TCB 地 址 


Int-task4 
的 TCB 地 址 


Int-tasks 


readyTask: 的 TCB 地 址 


intTask=5 


6 readyTask[] 的 存储 情况 
表 2 给 出 了 在 INTPAUSE 调度 方式 下 ， 中 断 任务 
Int-taski~Int-tasks 从 就 绪 到 运行 需要 等 待 的 时 间 。 
表 2 Itrtaskl~ Int-task5 从 就 绪 到 运行 等 待 的 时 间 /ms 
就 绪 的 任务 从 就 绪 到 运行 需要 等 待 的 时 间 


Int-taski 18 
Int-task» 16 
Int-tasks 12 
Int-task4 11 
Int-tasks 9 


TIntPAUsE 表示 任务 调度 原 语 INT-PAUSE 的 执行 时 间 ，Ti 
表示 后 台 任 务 Bg-taski 在 程序 段 四 中 从 发 生 中 断 的 地 方 执行 到 
INTPAUSE 所 用 的 时 间 ， 由 表 2 和 INT-PAUSE 的 调度 过 程 可 


以 得 出 : 
引 中 断 任务 Int-tasks 从 就 绪 到 运行 需要 等 待 的 时 间 
Tour = T+ Tv pvsg = OMS 
b)Ts-exec 表示 中 断 任务 Int-tasks 执行 其 执行 体 所 用 的 时 间 ， 
中 断 任务 Int-task4 从 就 绪 到 运行 需要 等 待 的 时 间 
Tvan = Ts_wan 十 Tee + Tyr_pavse 
= T+ 十 2 Tr pavss 
=] lms 
Cc)T4aexec 表示 中 断 任务 Int-tasks 执行 其 执行 体 所 用 的 时 间 ， 
中 断 任 务 Int-task3 从 就 绪 到 运行 需要 等 待 的 时 间 
Ta = Ty wa + Toe + Tiyr_pavse 
二 如 + > Tae + 3 Tr_pavse 
ed 
dd)T3-exec 表示 中 断 任务 Int-task3 执行 其 执行 体 所 用 的 时 间 ， 
中 断 任务 Int-task 从 就 绪 到 运行 需要 等 待 的 时 间 
Dn = 13 vo + Toe + Tyr_pavse 
三 下 二 S T, oe + 4 Tyr pause 
i 
e)T2 exee 表示 中 断 任务 Int-taskz 执行 其 执行 体 所 用 的 时 间 ， 


中 断 任务 Int-task! 从 就 绪 到 运行 需要 等 待 的 时 间 


十 了 十 也 


—waif 2—wait 2-exec INT—PAUSE 


-=T+ 守 7. ,+5*T 


INT—PAUSE 
m=2 


=18ms 


性 


进行 研究 ， 针 对 Forth 系统 没有 实时 调度 去 处 理 实时 突 发 寻 
的 问题 ， 结 合 中 断 技术 ， 本 文 新 建 了 一 种 中 断 任务 类 型 
INT-TASK: 来 处 理 突 发 事件 。 然 后 新 定义 了 一 个 任务 调度 原 语 
INT-PAUSE 来 实现 Forth 系统 中 终端 任务 、 后 台 任务 及 中 断 任 
务 的 调度 。 从 理论 上 提高 了 Forth 系统 对 突 发 导 


二 


本 


件 


oil 


牛 的 实时 响应 
且 在 AmForth 上 通过 实验 验证 了 这 一 理论 的 正确 性 ， 推 


动 了 


旋 


Forth 系统 多 任务 实时 调度 技术 的 发 展 ， 为 基于 虚拟 机 的 


入 式 Forth 系统 大 规模 应 用 于 对 实时 性 有 要 求 的 僚 入 式 环 境 


提供 了 一 定 的 理论 支撑 和 实现 参考 。 
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